home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 39 / Tiger_Disk_039_1997-06_Tiger-Crew-Disk_de_Side_B.d64 / print 64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  47 lines
  1. 10 poke56,64:clr
  2. 12 poke 3231,16* 5+ 0:rem fore+back(31)
  3. 20 print"[147]print 8k prg bitmap file"
  4. 21 print"home = reverse   l = load"
  5. 22 print"   p = print     x = exit"
  6. 24 input"fn = ";n$
  7. 26 poke 3228,len(n$):rem len  (28)
  8. 28 sys 3237         :rem load (37)
  9. 30 poke53265,59
  10. 40 poke53272,128
  11. 50 poke53280,0      :rem border
  12. 60 poke56576,150
  13. 90 sys 3240         :rem init (40)
  14. 100 getc$:ifc$=""goto100
  15. 120 ifc$<>""goto130
  16. 122 sys 3243:goto100:rem flip (43)
  17. 130 ifc$<>"p"goto300
  18. 140 close3:open3,4
  19. 142 print#3,chr$(8);:goto160
  20. 150 fori=1to1:print#3:next
  21. 160 forj=0to28
  22. 170 fork=0to39
  23. 180 sys 3246        :rem prnt (46)
  24. 190 a$=""
  25. 200 fori=0to7
  26. 210 a=peek( 3200+i) :rem char (0)
  27. 220 a$=a$+chr$(a)
  28. 230 nexti
  29. 240 ifk<>39thenprint#3,a$;:goto260
  30. 250 print#3,a$:goto260
  31. 252 print#3,chr$(27);chr$(10);chr$(2);
  32. 260 nextk                :rem gap=0,2,3
  33. 270 nextj
  34. 280 fori=1to4:print#3:next:rem bl=4,2,1
  35. 282 print#3,chr$(15);
  36. 284 close3
  37. 290 goto100
  38. 300 ifc$="l"thengosub900:goto20
  39. 310 ifc$="x"thengosub900:end
  40. 500 goto100
  41. 900 poke53265,27
  42. 910 poke53272,21
  43. 920 poke53280,254
  44. 930 poke56576,151
  45. 940 print"[147]"
  46. 950 return
  47.